Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Purus ut faucibus pulvinar elementum integer. Commodo odio aenean sed adipiscing diam donec adipiscing tristique. Tempus egestas sed sed risus pretium. Sit amet venenatis urna cursus eget nunc scelerisque viverra. Vitae tempus quam pellentesque nec nam. Nisl nisi scelerisque eu ultrices vitae auctor eu. Velit scelerisque in dictum non consectetur a. Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus. Nec feugiat nisl pretium fusce. Integer malesuada nunc vel risus. Vestibulum lectus mauris ultrices eros in cursus. Lobortis scelerisque fermentum dui faucibus in ornare quam viverra. Nisi lacus sed viverra tellus in hac habitasse platea. Vitae congue eu consequat ac felis donec et odio pellentesque. Amet commodo nulla facilisi nullam vehicula ipsum a. Varius vel pharetra vel turpis nunc eget. Sagittis nisl rhoncus mattis rhoncus urna neque viverra justo nec.
Lobortis scelerisque fermentum dui faucibus
Lobortis scelerisque fermentum dui faucibus
Lobortis scelerisque fermentum dui faucibus
| Density | Air | Temperature | Pollution | Co² | planet | Initiatives |
|---|---|---|---|---|---|---|
| 0.55 | 5.43 | 1.30 | 2.14 | 542.84 | 1 | 100.00% |
| -0.84 | 10.13 | -0.77 | 1.66 | 521.69 | 1 | 200.00% |
| 0.03 | 10.25 | -0.50 | 1.91 | 517.66 | 0 | 300.00% |
| 0.52 | 11.06 | 1.18 | 1.73 | 523.02 | 1 | 400.00% |
| -1.73 | 13.31 | 1.44 | 2.08 | 551.05 | 0 | 500.00% |
| -0.28 | 10.01 | 0.51 | 2.12 | 555.69 | 0 | 600.00% |
| 0.36 | 6.54 | 0.98 | 2.10 | 535.90 | 0 | 700.00% |
| -0.59 | 14.22 | -0.75 | 1.98 | 530.73 | 1 | 800.00% |
| 0.98 | 5.87 | 1.14 | 1.74 | 544.46 | 0 | 900.00% |
| -1.45 | 2.37 | -0.36 | 1.85 | 544.54 | 1 | 1000.00% |
| 0.30 | 13.25 | -0.80 | 2.14 | 538.31 | 1 | 1100.00% |
| 0.55 | 7.54 | 1.77 | 1.98 | 536.86 | 1 | 1200.00% |
| -0.50 | 4.34 | 0.81 | 2.05 | 522.83 | 0 | 1300.00% |
| 0.20 | 11.39 | -1.19 | 1.81 | 547.65 | 0 | 1400.00% |
| -0.46 | 9.98 | -0.76 | 1.86 | 539.64 | 0 | 1500.00% |
| -0.36 | 6.58 | 0.43 | 1.87 | 531.12 | 1 | 1600.00% |
| -0.16 | 9.06 | 0.84 | 1.93 | 545.24 | 0 | 1700.00% |
| -0.77 | 12.33 | -0.20 | 2.23 | 536.18 | 0 | 1800.00% |
| -1.17 | 6.32 | 1.11 | 1.98 | 544.48 | 0 | 1900.00% |
| -0.32 | 8.3 | 0.95 | 2.00 | 548.50 | 1 | 2000.00% |
| -0.35 | 4.53 | 0.23 | 1.81 | 557.91 | 0 | 2100.00% |
| -0.59 | 11 | -0.47 | 1.92 | 542.76 | 0 | 2200.00% |
| -1.59 | 7.25 | -2.22 | 2.10 | 536.04 | 1 | 2300.00% |
| 1.69 | 6.53 | 0.00 | 1.93 | 523.54 | 0 | 2400.00% |
| 0.56 | 7.87 | -0.78 | 2.04 | 535.08 | 1 | 2500.00% |
Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus.
Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus.
orem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Purus ut faucibus pulvinar elementum integer. h2(Commodo odio aenean) sed adipiscing diam donec adipiscing tristique. Tempus egestas sed sed risus pretium. Sit amet venenatis urna cursus eget nunc scelerisque viverra. Vitae tempus quam pellentesque nec nam. Nisl nisi scelerisque eu ultrices vitae auctor eu. Velit scelerisque in dictum non consectetur a. Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus. Nec feugiat nisl pretium fusce. Integer malesuada nunc vel risus. Vestibulum lectus mauris ultrices eros in cursus. Lobortis scelerisque fermentum dui faucibus in ornare quam viverra. Nisi lacus sed viverra tellus in hac habitasse platea. Vitae congue eu consequat ac felis donec et odio pellentesque. Amet commodo nulla facilisi nullam vehicula ipsum a. Varius vel pharetra vel turpis nunc eget. Sagittis nisl rhoncus mattis rhoncus urna neque viverra justo nec.
---
title: "Example of a simple flexdashboard"
output:
flexdashboard::flex_dashboard:
orientation : rows
vertical_layout: fill
theme: paper
source_code: embed
social: [ "twitter", "facebook", "menu" ]
navbar:
- { title: "KPMG", href: "https://home.kpmg/be/en/home.html", align: right }
---
```{r setup, include=FALSE}
library(flexdashboard)
set.seed(50)
library(tidyverse)
library(plotly)
library(ggthemes)
library(RColorBrewer)
library(leaflet)
library(formattable)
library(kableExtra)
#create the dataframe
dt<-data.frame(a = rnorm(100), b = rnorm(100, mean = 10, sd = 3),
c = rnorm(100), d = rnorm(100, mean = 2, sd = 0.13), e = rnorm(100, mean = 539, sd = 10))
dt<-round(dt, 2)
names(dt)<-c("Density", "Air","Temperature","Pollution", "Co²")
dt$planet <- rbinom(100, 1, 0.5)
dt$planet<-as.factor(dt$planet)
dt$Initiatives<-c(1:100)
#generating plot
plot1<-ggplot(dt, aes(x =Density, y = Temperature, size = Air, alpha = 0.5)) + geom_point(col = "blue") +
geom_smooth(method = lm) + theme_pander()+
theme(plot.title = element_text(hjust = 0.5), plot.subtitle = element_text(hjust =0.5)) +
labs(title = "Temperature by density population",subtitle = "Plot of the month",caption = "Data source: RG09") +
theme(legend.position = "bottom")
plot1.x<-ggplotly(plot1)
plot2<-ggplot(dt, aes(x = Co², y=planet, fill=planet)) + geom_boxplot(notch = T) +
labs(title = "Outliers by planet",subtitle = "Plot of the universe",caption = "Data source: RG09") +
geom_vline(xintercept =mean(dt$Co²), linetype="dashed", color = "red", size=1) + theme_classic()
plot2
plot3<-ggplot(dt, aes(Co²))+geom_histogram(color="black", fill="orange") +
labs(title = "Distribution of the Co²",subtitle = "Plot for air",caption = "Data source: RG09") + theme_clean()
plot3
plot4 <-ggplot(dt, aes(x = Pollution)) + geom_density(color = "black", fill = "orange", alpha = 0.5) +
labs(title = "Pol. density²",subtitle = "Breath",caption = "Data source: RG09") + theme_minimal()
plot4
plot5<-ggplot(dt, aes(x=planet, fill = planet))+geom_bar() + theme_bw()+
labs(title = "Count of planet",caption = "Data source: RG09") + scale_fill_brewer("Dark2") + coord_flip()
plotly5<-ggplotly(plot5)
plotly5
col<- scale_fill_brewer("blues")
plot6<-ggplot(dt, aes(y =Air, x = Initiatives, size = Air, col = planet, alpha = 0.8)) +
geom_point() +geom_smooth(method="glm", fill = "steelblue") + labs(title = "Galaxy", caption = "StarWars") +
facet_grid(cols = vars(planet)) + scale_color_brewer(palette = "Dark2") + theme_bw()+ theme(legend.position="top")
plot6
plotly6<-ggplotly(plot6)
plotly6
plot7<-ggplot(dt, aes(x=Initiatives, y = Air)) + geom_line(color = "red") + theme_clean() + labs(title = "Tree of Life",caption = "Data source: RG09") + ylab("Air of life")
plotly7.x<-ggplotly(plot7)
plotly7.x
#generating simple map
icon<-makeIcon("640px-KPMG_logo.svg.png", iconWidth = 95, iconHeight = 38, shadowUrl = "https://home.kpmg/be/en/home.html" )
map1<-leaflet(dt)%>%addTiles() %>%addMiniMap()%>%addMarkers(lng=4.485433, lat=50.895773, popup="KPMG Belgium, I work there", icon = icon)%>% addProviderTiles(providers$nlmaps.pastel1)%>%
addMiniMap(tiles = providers$Esri.WorldStreetMap,toggleDisplay = TRUE)
map1
#generating a pretty table
sign_formatter <- formatter("span", style = x ~ style(color = ifelse(x > 0, "green", ifelse(x < 0, "red", "black"))))
improvement_formatter <- formatter("span", style = x ~ style(font.weight = "bold",
color = ifelse(x > 0, "green", ifelse(x < 0, "red", "black"))),
x ~ icontext(ifelse(x>0, "tag", "arrow-down"), x))
#icons (https://glyphicons.com/sets/basic/)
bold_color_formatter<-formatter("span", style = x ~ style(font.weight = "bold", color = "lightblue"))
pretty.dt<-formattable(dt,list(Pollution =color_tile("white", "green"), Temperature = color_bar("orange"),
Density = sign_formatter, Air = improvement_formatter, planet = bold_color_formatter, Initiatives = percent))
pretty.dt.x<-as.datatable(pretty.dt)
pretty.dt
```
Summary {data-icon="fa-dashboard"}
=====================================
Inputs {.sidebar}
-------------------------------------
### INTRODUCTION
orem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Purus ut faucibus pulvinar elementum integer. h2(Commodo odio aenean) sed adipiscing diam donec adipiscing tristique. Tempus egestas sed sed risus pretium. Sit amet venenatis urna cursus eget nunc scelerisque viverra. Vitae tempus quam pellentesque nec nam. Nisl nisi scelerisque eu ultrices vitae auctor eu. Velit scelerisque in dictum non consectetur a. Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. **Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus**. Nec feugiat nisl pretium fusce. Integer malesuada nunc vel risus. Vestibulum lectus mauris ultrices eros in cursus. Lobortis scelerisque fermentum dui faucibus in ornare quam viverra. Nisi lacus sed viverra tellus in hac habitasse platea. Vitae congue eu consequat ac felis donec et odio pellentesque. Amet commodo nulla facilisi nullam vehicula ipsum a. Varius vel pharetra vel turpis nunc eget. **Sagittis nisl rhoncus mattis rhoncus urna neque viverra justo nec**.
Row {data-height=400}
-----------------------------------------------------------------------
### Introduction
#### This is my header
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Purus ut faucibus pulvinar elementum integer. Commodo odio aenean sed adipiscing diam donec adipiscing tristique. Tempus egestas sed sed risus pretium. Sit amet venenatis urna cursus eget nunc scelerisque viverra. Vitae tempus quam pellentesque nec nam. Nisl nisi scelerisque eu ultrices vitae auctor eu. Velit scelerisque in *dictum non consectetur* a. Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus. Nec feugiat nisl pretium fusce. Integer malesuada nunc vel risus. Vestibulum lectus mauris ultrices eros in cursus. Lobortis scelerisque fermentum dui faucibus in ornare quam viverra. Nisi lacus sed viverra tellus in hac habitasse platea. Vitae congue eu consequat ac felis donec et odio pellentesque. Amet commodo nulla facilisi nullam vehicula ipsum a. Varius vel pharetra vel turpis nunc eget. Sagittis nisl rhoncus mattis rhoncus urna neque viverra justo nec.
### Chart B
```{r}
plotly5
```
Row {.tabset .tabset-fade}
-----------------------------------------------------------------------
### Chart C
```{r}
plotly7.x
```
> Lobortis scelerisque fermentum dui faucibus
### Chart D
```{r}
map1
```
> Lobortis scelerisque fermentum dui faucibus
### Chart E
```{r}
plot1.x
```
> Lobortis scelerisque fermentum dui faucibus
Table {data-icon="fa-list"}
=====================================
Row
-----------------------------------------------------------------------
### Total free air
```{r}
Air <- sum(dt$Air)
valueBox(Air, icon = "fa-pencil", color = "lightblue")
```
### Total free air
```{r}
Air <- sum(dt$Air)
valueBox(Air, icon = "fa-angle-double-right")
```
### Total free air
```{r}
lol <- 345
valueBox(lol, icon = "fa-coffee", color = "lightgreen")
```
Row
-----------------------------------------------------------------------
### DT
```{r}
head(pretty.dt, 25)
```
>Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus.
Quick view {data-icon="fa-clock"}
=====================================
Row
-----------------------------------------------------------------------
### Chart F
```{r}
plotly7.x
```
### Chart F
```{r}
plot4
```
### Chart G
```{r}
plot2
```
Row
-----------------------------------------------------------------------
### Chart H
```{r}
plot1
```
### Chart I
```{r}
plot6
```
### Chart J
```{r}
plot5
```
>Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus.
ABOUT {data-icon="fa-story"}
=====================================
Column
-------------------------------------
### About
orem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Purus ut faucibus pulvinar elementum integer. h2(Commodo odio aenean) sed adipiscing diam donec adipiscing tristique. Tempus egestas sed sed risus pretium. Sit amet venenatis urna cursus eget nunc scelerisque viverra. Vitae tempus quam pellentesque nec nam. Nisl nisi scelerisque eu ultrices vitae auctor eu. Velit scelerisque in dictum non consectetur a. Ac orci phasellus egestas tellus rutrum tellus pellentesque eu. Urna molestie at elementum eu facilisis sed odio. **Facilisis magna etiam tempor orci eu lobortis elementum nibh tellus**. Nec feugiat nisl pretium fusce. Integer malesuada nunc vel risus. Vestibulum lectus mauris ultrices eros in cursus. Lobortis scelerisque fermentum dui faucibus in ornare quam viverra. Nisi lacus sed viverra tellus in hac habitasse platea. Vitae congue eu consequat ac felis donec et odio pellentesque. Amet commodo nulla facilisi nullam vehicula ipsum a. Varius vel pharetra vel turpis nunc eget. **Sagittis nisl rhoncus mattis rhoncus urna neque viverra justo nec**.
### Author
| Us | You | We |
| :--- | :----: | ---: |
| Header | Title | Here's this |
| Paragraph | Text | And more |
| Header | Title | Here's this |
| Paragraph | Text | And more |
| Header | Title | Here's this |
| Paragraph | Text | And more |
Row
-------------------------------------